10 IFL$="ARIA"THEN1000
20 IFM$="MODULE ONE"THEN1100
30 IFN$="MODULE TWO"THEN2000
40 IFO$="MODULE THREE"THEN3000
50 IFP$="MODULE FOUR"THEN4000
60 IFQ$="MODULE FIVE"THEN5000
70 IFR$="ARIA TWO"THEN5500
110 POKE657,128:POKE56,38:POKE52,38:PRINTCHR$(14):POKE53280,11:POKE53281,0:GOSUB20000:PRINT"[147]";A$:PRINT"   [151][212]HIS DISK IS DEFAULTED TO PLAY THE":PRINT"[199]OLDBERG [214]ARIATIONS FROM START TO FINISH":PRINT"[217]OU MAY CHOOSE TO PLAY SHORTER SECTIONS,":PRINT"    OR SKIP AROUND FROM SELECTION TO
550 [153]"    SELECTION WITHIN THE ENTIRE WORK.":[153]"";A$:[153]"     POKE(null)(null)VAL(null)(null)CLOSE(null)(null)ATNLENVAL (null)(null) LEN(null)(null)(null)RIGHT$(null)(null)VALWAIT":[153]"";A$:[146]197,32
600 [156]:[129]L[178]54272[164]54295:[151]L,0:[130]
605 [141]20000:[153]"LOAD";A$:[153]"ON         LEFT$VAL(null)VAL ATN(null)VAL (null)(null)(null)(null) (null)(null)(null)RIGHT$(null)(null)(null)WAIT":[153]A$:[153]"  1 - ATNRIA TO (null)ARIATION 7":[153]"   2 - (null)ARIATION 8 TO (null)ARIATION 13":[153]"CLR    3 - (null)ARIATION 14 TO (null)ARIATION 20":[153]"     4 - (null)ARIATION 21 TO (null)ARIATION 25
680 PRINT"[154]      5 - [214]ARIATION 26 TO [214]ARIATION 30":PRINT"       6 - [197][206][196] [208][210][207][199][210][193][205]":PRINT""A$:PRINT"[208][210][197][211][211] [193] [206][213][205][194][197][210]":PRINT""A$
705 GETX$:IFX$="1"THEN1000
720 IFX$="2"THEN2000
730 IFX$="3"THEN3000
740 IFX$="4"THEN4000
750 IFX$="5"THEN5000
760 IFX$="6"THEN6000
770 IFVAL(X$)<1ORVAL(X$)>5THENGOTO705
1000 IFA=0THENA=1:L$="ARIA":LOAD"ARIA",8,1
1010 SYS10000:S=10924:PRINT"[147]"A$:PRINT"   [149][217]OU ARE NOW LISTENING TO THE [193]RIA.":PRINT" [201]TS BASS LINE FORMS THE FOUNDATION FOR":PRINT"     ALL THE SUBSEQUENT VARIATIONS.":PRINT"";A$:GOSUB10000:L$="
1100 [139]B[178]0[167]B[178]1:M$[178]"MODULE ONE":[147]"MODULE ONE",8,1
1110 [158]10000:S[178]10924:[153]"LOAD";A$:[153]"  VERIFY(null)HE FIRST (null)ARIATION IS IN TWO PARTS,":[153]"   WITH BOTH HANDS FREELY EXCHANGING":[153]"MATERIAL, CONSISTING OF SCALE PASSAGES,":[153]"    ARPEGGIOS AND WIDE LEAPS OF MORE":[153]"           THAN AN OCTAVE.":[153]"";A$:[141]10000
1200 [158]14916:S[178]15840:[153]"LOAD";A$:[153]" VERIFY(null)ARIATION TWO IS IN THREE PARTS AND":[153]"  ALTHOUGH CANONIC IN FORM, IS NOT":[153]"          A STRICT CANON.":[153]"";A$:[141]10000:[158]19000:S[178]19924:[153]"LOAD";A$:[153]"  VERIFY(null)ARIATION THREE IS THE FIRST CANON.
1320 PRINT"  [212]HE VOICES ENTER TWELVE BEATS APART,":PRINT"             IN UNISON.":PRINT"";A$:GOSUB10000:SYS23404:S=24328:PRINT"[147]";A$:PRINT"   [149][214]ARIATION FOUR IS A LIVELY DANCE":PRINT"         PIECE IN FOUR PARTS.":PRINT"";A$:GOSUB10000:SYS27488:S=28412:PRINT"[147]";A$
1510 PRINT"  [149][214]ARIATION FIVE CONTAINS CROSSING OF":PRINT" OF HANDS, OVERLAPPING PARTS, AND LEAPS":PRINT"    WHICH MAKE IT VERY DIFFICULT TO":PRINT"         PERFORM ON THE PIANO.":PRINT"";A$:GOSUB10000:SYS32852:S=33776:PRINT"[147]";A$:PRINT"[149][214]ARIATION SIX IS A CANON AT THE SECOND.
1620 [153]"    (null)ARIATION SEVEN IS A GRACEFULLY":[153]"      ORNAMENTED (null)ICILIANO DANCE.":[153]"";A$:[141]10000:M$[178]"
2000 IFC=0THENC=1:N$="MODULE TWO":LOAD"MODULE TWO",8,1
2010 SYS10000:S=10924:PRINT"[147]";A$:PRINT"   [149][214]ARIATION EIGHT IS ANOTHER EXAMPLE":PRINT"     OF CROSSING OF HANDS AND GREAT":PRINT"             VIRTUOSITY.":PRINT"";A$:GOSUB10000:SYS15108:S=16032:PRINT"[147]";A$:PRINT"   [149][214]ARIATION NINE, THE THIRD CANON IN
2120 [153]"   THE SERIES EXHIBITS SOME BEAUTIFUL":[153]"   AND UNUSUAL HARMONIES; ON THE WHOLE":[153]"          A VERY ORIGINAL PIECE.":[153]"";A$:[141]10000:[158]19128:S[178]20052:[153]"LOAD";A$:[153]"   VERIFY(null)ARIATION TEN IS A MINIATURE FUGUE":[153]"    OR FUGHETTA, FEATURING SOME VERY
2230 PRINT"       CONCENTRATED COUNTERPOINT.":PRINT"";A$:GOSUB10000:SYS24108:S=25032:PRINT"[147]";A$:PRINT"  [149][214]ARIATION ELEVEN CONTAINS EXTENDED":PRINT"RUNS OF TRIPLETS, AND SOME LONG TRILLS.":PRINT"";A$:GOSUB10000:SYS29408:S=30332:PRINT"[147]";A$:PRINT"   [149][214]ARIATION TWELVE IS A CANON AT THE
2420 [153]"       FOURTH IN CONTRARY MOTION.":[153]"   (null)ARIATION THIRTEEN IS A BEAUTIFUL":[153]"    AIR WITH TWO-PART ACCOMPANIMENT":[153]"";A$:[141]10000:N$[178]"
3000 IFD=0THEND=1:O$="MODULE THREE":LOAD"MODULE THREE",8,1
3010 SYS10000:S=10924:PRINT"[147]";A$:PRINT"   [149][214]ARIATION FOURTEEN IS A GLITTERING":PRINT"     PIECE SHOWING GREAT VIRTUOSITY.":PRINT"";A$:GOSUB10000:SYS15940:S=16864:PRINT"[147]";A$:PRINT" [149][214]ARIATION FIFTEEN SWITCHES TO [199] MINOR,":PRINT"  FOR A VERY SOMBER CANON AT THE FIFTH
3130 [153]"          IN CONTRARY MOTION.":[153]"";A$:[141]10000:[158]20856:S[178]21780:[153]"LOAD";A$:[153]" VERIFY(null)ARIATION SIXTEEN IS THE CENTER OF THE":[153]"   OF THE WORK, A HEAVILY ORNAMENTED":[153]"ASCRENCH OVERTURE, WITH DOTTED RHYTHMS IN":[153]"THE FIRST HALF AND A FUGAL SECOND HALF.
3250 PRINT"";A$:GOSUB10000:SYS27244:S=28168:PRINT"[147]";A$:PRINT" [149][214]ARIATION SEVENTEEN IS A VERY STRANGE":PRINT"PIECE.  [212]HERE'S NOTHING MUCH LIKE IT IN":PRINT"       [197]IGHTEENTH [195]ENTURY MUSIC.":PRINT"";A$:GOSUB10000:SYS32928:S=33852:PRINT"[147]";A$:PRINT"   [149][145][214]ARIATIONS 18, 19, AND 20 ARE HERE
3420 [153]"   COMBINED WITH LITTLE INTERRUPTION.":[153]"VALIGHTEEN IS A CANON AT THE SIXTH. (null)INE-":[153]"  TEEN IS A 3/8 TIME DANCE, AND NUMBER":[153]"  TWENTY IS ANOTHER OF THOSE DAZZLING":[153]" VIRTUOSO PIECES WHICH IS AN EXAMPLE OF":[153]"          SHEER BRILLIANCE.
3480 PRINT"";A$:GOSUB10000:O$="
4000 [139]E[178]0[167]E[178]1:P$[178]"MODULE FOUR":[147]"MODULE FOUR",8,1
4010 [158]10000:S[178]10924:[153]"LOAD";A$:[153]"   VERIFY(null)ARIATION TWENTY-ONE IS A CANON AT":[153]" AT THE SEVENTH.  (null)ARIATION TWENTY-TWO":[153]"   IS A FOUR-PART OLD STYLE RICECARE.":[153]"(null)ARIATION TWENTY-THREE HAS OPPOSING RUNS":[153]"  IN THIRDS AND SIMULTANEOUS ORNAMENTS
4070 PRINT"           IN BOTH HANDS.":PRINT"";A$:GOSUB10000:SYS17668:S=18592:PRINT"[147]";A$:PRINT"    [149][214]ARIATION TWENTY-FOUR IS A CANON":PRINT" AT THE OCTAVE.   [214]ARIATION TWENTY-FIVE":PRINT"IS A VERY FAMOUS PIECE FOR THE STRENGTH":PRINT"  OF ITS HARMONY AND EMOTIONAL IMPACT,
4150 [153]" SWITCHING TO CHR$ MINOR IN AN IMPASSIONED":[153]"              RECITATIVE.":[153]"";A$:[141]10000:P$[178]"
5000 IFF=0THENF=1:Q$="MODULE FIVE":LOAD"MODULE FIVE",8,1
5010 SYS10000:S=10924:PRINT"[147]";A$:PRINT"    [149][214]ARIATION TWENTY-SIX PROVIDES A":PRINT" WONDERFUL CONTRAST AFTER THE SOLEMNITY":PRINT"         OF ITS PREDECESSOR.":PRINT"[206]UMBER TWENTY-SEVEN IS THE FINAL CANON,":PRINT"  THIS TIME AT THE NINTH, AND ALONE IN
5070 [153]"      HAVING NO SUPPORTING BASS LINE.":[153]"";A$:[141]10000:[158]17412:S[178]18336:[153]"LOAD";A$:[153]"    VERIFYON(null)ARIATION TWENTY-EIGHT IS A VERY":[153]"ADVANCED PIECE FOR ITS TIME.  (null)ARIATION":[153]" TWENTY-NINE IS NOTABLE FOR ITS TRIPLE":[153]"      TRILLS AND ITS SCALE PASSAGES.
5150 PRINT" [201]NSTEAD OF THE EXPECTED CANON, WE FIND":PRINT"     SOME OLD [199]ERMAN FOLK SONGS FOR":PRINT"          [214]ARIATION THIRTY.":PRINT"";A$:GOSUB10000:Q$="
5500 [153]"LOAD":[139]G[178]0[167]G[178]1:R$[178]"ARIA TWO":[147]"ARIA",8,1
5505 [158]10000:S[178]10924:[153]"LOAD";A$:[153]"    VERIFY(null)HE CHR$OLDBERG (null)ARIATIONS END WITH":[153]"   A RESTATEMENT OF THE OPENING ARIA.":[153]"";A$;"VERIFY":[128]
6000 [153]"LOADATN(null)VAL (null)(null)(null) (null)(null)(null)VAL? - (null) OR (null)""
6010 GETW$:IFW$="Y"THENSYS64738
6030 IFW$="N"THENCLR:GOTO605
6040 GOTO6010
10000 PRINT"     [151][208][210][197][211][211] ([193]) [212][207] [199][207] [212][207] [206][197][216][212] [208][201][197][195][197]":PRINT"      [208][210][197][211][211] ([194]) [212][207] [210][197][212][213][210][206] [212][207] [205][197][206][213]":PRINT"";A$
10040 GETW$:IFNOTPEEK(789)=234ANDNOTW$="A"ANDNOTW$="B"THEN10040
10045 PRINT"[147]":IFPEEK(789)=234THENX=1:FORA=1TO1500:NEXT:RETURN
10050 IFW$="A"THENPOKES,4:FORZ=54272TO54295:POKEZ,0:NEXT:FORA=1TO1500:NEXT:RETURN
10060 IFW$="B"THENPOKES,4:FORZ=54272TO54295:POKEZ,0:NEXT:FORA=1TO1500:NEXT:RUN600
20000 A$="- - - - - - - - - - - - - - - - - - - - ":RETURN